home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #1 / Amiga Plus Extra 1997 #1.iso / programme / daten / adm / arexx / adm-arexxmakros.lha / Ausdruck / datum < prev    next >
Text File  |  1995-07-31  |  765b  |  38 lines
  1. /* $VER: datum.rexx 1.1 (22.1.95)
  2.    Unterprogramm zur Erzeugung des aktuellen Datums in deutscher Sprache
  3. */
  4.  
  5. datum=date(sorted)
  6.  
  7. year=left(datum,4)
  8. month=substr(datum,5,2)
  9. day=substr(datum,7,2)
  10.  
  11. if(month=1)then
  12.    monthname="Januar"
  13. else if(month=2)then
  14.    monthname="Februar"
  15. else if(month=3)then
  16.    monthname="März"
  17. else if(month=4)then
  18.    monthname="April"
  19. else if(month=5)then
  20.    monthname="Mai"
  21. else if(month=6)then
  22.    monthname="Juni"
  23. else if(month=7)then
  24.    monthname="Juli"
  25. else if(month=8)then
  26.    monthname="August"
  27. else if(month=9)then
  28.    monthname="September"
  29. else if(month=10)then
  30.    monthname="Oktober"
  31. else if(month=11)then
  32.    monthname="November"
  33. else if(month=12)then
  34.    monthname="Dezember"
  35.  
  36.  
  37. RETURN right((0+day)||". "||monthname||" "||year,18)
  38.